Windows 6-Pak - Disc 4/Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO/Text-Chat-Addins/C-Script.exe/Sysfiles/Mail/mail.mrc

Text File | 1998-05-11 | 28.7 KB | 481 lines

;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
;Configure at your own risk
;Email Part 1

;Initiate mail
alias mail mail.initiate
alias mail.initiate {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 8' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  wincheck @mailácenter -p +f @MailáCenter $center(523,295) 523 295 @mailácenter comic sans ms 12
  drawfill @mailácenter 15 15 0 0
  drawrect -f @mailácenter 2 1 0 0 600 17
  drawtext -o @mailácenter 0 arial 14 3 1 C-Script Mail Center
  drawx 7 20 80 30 @mailácenter
  drawx 7 57 80 30 @mailácenter
  drawx 7 94 80 30 @mailácenter
  drawx 7 131 80 30 @mailácenter
  drawx 7 168 80 30 @mailácenter
  drawx 7 221 80 30 @mailácenter
  drawx 7 257 80 30 @mailácenter
  drawtext @mailácenter 5 arial 14 29 197 C-Script
  drawtext @mailácenter 2 arial 14 22 207 Mail Center
  if ($readini sysfiles\mail\settings.ini inbox num > 0) { drawtext -o @mailácenter 2 arial 18 27 26 Inbox }
  else drawtext -o @mailácenter 1 arial 18 27 26 Inbox
  if ($readini sysfiles\mail\settings.ini outbox num > 0) { drawtext -o @mailácenter 2 arial 18 20 63 Outbox }
  else drawtext -o @mailácenter 1 arial 18 20 63 Outbox
  drawtext -o @mailácenter 1 arial 18 10 101 Sent Items
  drawtext -o @mailácenter 1 arial 18 26 137 Drafts
  drawtext -o @mailácenter 1 arial 18 17 174 Contacts
  drawtext -o @mailácenter 1 arial 18 27 227 Setup
  if (%smail.sndrcv == 1) { drawtext -o @mailácenter 14 arial 18 19 264 Snd/Rcv }
  else drawtext -o @mailácenter 1 arial 18 19 264 Snd/Rcv
  drawx 465 2 15 14 @mailácenter nx | drawx 481 2 15 14 @mailácenter mxx | drawx 499 2 15 14 @mailácenter X
  if ($1 == $null) { mail.sidebar | mail.help }
  else mail.compose $$1
  unset %mail.*
}
alias mailhelp mail.initiate
;Initiate inbox
alias mail.inbox {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 2' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %smail.ib.num $readini sysfiles\mail\settings.ini inbox num | set %smail.ib.count 0
  rline @mail.status 1 Right click here for options | rline @mail.status 2 á | set %mail.menu inbox
  :next
  inc %smail.ib.count | if (%smail.ib.count > %smail.ib.num) { goto end }
  set %smail.ib.file ib $+ %smail.ib.count $+ .txt
  rline @mail.status $calc(%smail.ib.count + 2) $read -nl1 [ sysfiles\mail\ [ $+ [ %smail.ib.file ] ] ] $read -nl2 [ sysfiles\mail\ [ $+ [ %smail.ib.file ] ] ]
  goto next
  :end
  unset %smail.ib.* | window -b @mail.status
}
;Initiate outbox
alias mail.outbox {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 3' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %mail.ob.num $readini sysfiles\mail\settings.ini outbox num | set %mail.ob.count 0
  rline @mail.status 1 Right click here for options | rline @mail.status 2 á | set %mail.menu outbox
  :next
  inc %mail.ob.count | if (%mail.ob.count > %mail.ob.num) { goto end }
  set %mail.ob.file ob $+ %mail.ob.count $+ .txt
  rline @mail.status $calc(%mail.ob.count + 2) $read -nl1 [ sysfiles\mail\ [ $+ [ %mail.ob.file ] ] ] $read -nl2 [ sysfiles\mail\ [ $+ [ %mail.ob.file ] ] ]
  goto next
  :end
  unset %mail.ob.* | window -b @mail.status
}
;Initiate sent items
alias mail.sent {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 4' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %mail.menu sent
  set %mail.sent.num $readini sysfiles\mail\settings.ini sentitems num | set %mail.sent.count 0
  rline @mail.status 1 Right click here for options | rline @mail.status 2 á
  :next
  inc %mail.sent.count | if (%mail.sent.count > %mail.sent.num) { goto end }
  set %mail.sent.file si $+ %mail.sent.count $+ .txt
  rline @mail.status $calc(%mail.sent.count + 2) $read -nl1 [ sysfiles\mail\ [ $+ [ %mail.sent.file ] ] ] $read -nl2 [ sysfiles\mail\ [ $+ [ %mail.sent.file ] ] ]
  goto next
  :end
  unset %mail.sent.* | window -b @mail.status
}
;Initiate Drafts
alias mail.drafts {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 5' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %mail.df.num $readini sysfiles\mail\settings.ini drafts num | set %mail.df.count 0
  rline @mail.status 1 Right click here for options | rline @mail.status 2 á | set %mail.menu drafts
  :next
  inc %mail.df.count | if (%mail.df.count > %mail.df.num) { goto end }
  set %mail.df.file df $+ %mail.df.count $+ .txt
  rline @mail.status $calc(%mail.df.count + 2) $read -nl1 [ sysfiles\mail\ [ $+ [ %mail.df.file ] ] ] $read -nl2 [ sysfiles\mail\ [ $+ [ %mail.df.file ] ] ]
  goto next
  :end
  unset %mail.df.* | window -b @mail.status
}
;Initiate Contacts
alias mail.contacts {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 6' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %mail.menu contacts
  set %mail.cont.num $readini sysfiles\mail\settings.ini contacts num
  rline @mail.status 1 Right click here to add a contact
  rline @mail.status 2 á
  set %mail.cont.count 0 | set %mail.cont.count2 2
  :next
  inc %mail.cont.count | inc %mail.cont.count2 | if (%mail.cont.count > %mail.cont.num) { goto end }
  set %mail.cont.read $readini sysfiles\mail\settings.ini contacts %mail.cont.count
  if (%mail.cont.read == $null) { dec %mail.cont.count2 | goto next }
  rline @mail.status %mail.cont.count2 %mail.cont.read
  goto next
  :end
  unset %mail.cont.* | window -b @mail.status
}
;Initiate setup
alias mail.setup {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 7' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar | clear @mail.status | set %mail.menu setup
  rline @mail.status 1 Accounts:
  rline @mail.status 2 á
  rline @mail.status 3 Default account number: $readini sysfiles\mail\settings.ini accounts default2
  rline @mail.status 4 1 $readini sysfiles\mail\settings.ini accounts 1name ( $+ $readini sysfiles\mail\settings.ini accounts 1email $+ )
  rline @mail.status 5 ááPassword: $readini sysfiles\mail\settings.ini accounts 1pass
  rline @mail.status 6 ááPOP3 mail server: $readini sysfiles\mail\settings.ini accounts 1mail
  rline @mail.status 7 ááSMTP Server: $readini sysfiles\mail\settings.ini accounts 1smtp
  rline @mail.status 8 2 $readini sysfiles\mail\settings.ini accounts 2name ( $+ $readini sysfiles\mail\settings.ini accounts 2email $+ )
  rline @mail.status 9 ááPassword: $readini sysfiles\mail\settings.ini accounts 2pass
  rline @mail.status 10 ááPOP3 mail server: $readini sysfiles\mail\settings.ini accounts 2mail
  rline @mail.status 11 ááSMTP Server: $readini sysfiles\mail\settings.ini accounts 2smtp
  rline @mail.status 12 3 $readini sysfiles\mail\settings.ini accounts 3name ( $+ $readini sysfiles\mail\settings.ini accounts 3email $+ )
  rline @mail.status 13 ááPassword: $readini sysfiles\mail\settings.ini accounts 3pass
  rline @mail.status 14 ááPOP3 mail server: $readini sysfiles\mail\settings.ini accounts 3mail
  rline @mail.status 15 ááSMTP Server: $readini sysfiles\mail\settings.ini accounts 3smtp
  rline @mail.status 16 á
  rline @mail.status 17 Other:
  rline @mail.status 18 Check/send mail every: $readini sysfiles\mail\settings.ini settings check min ( $+ $readini sysfiles\mail\settings.ini settings check2 $+ )
  rline @mail.status 19 Signature file: $readini sysfiles\mail\settings.ini settings signature | window -b @mail.status
}
;Add to contacts list
alias mail.add {
  set %mail.cont.q $$?="Enter new contact's name:"
  set %mail.cont.q2 $$?="Enter new contact's e-mail address:"
  set %mail.cont.num $readini sysfiles\mail\settings.ini contacts num
  inc %mail.cont.num
  writeini sysfiles\mail\settings.ini contacts %mail.cont.num %mail.cont.q $+ : %mail.cont.q2
  writeini sysfiles\mail\settings.ini contacts num %mail.cont.num
  mail.contacts
}
;Sending of mail to those in contact list
alias mail.send {
  if ($sline(@mail.status,1).ln < 3) { halt }
  mail.compose $gettok($sline(@mail.status,1),2,58)
}
;Mail sidebar (window)
alias mail.sidebar {
  window -c @mail.status | set %win.x $window(@mailácenter).x  | set %win.y $window(@mailácenter).y
  wincheck @mail.status -l +b @mail.status $calc(%win.x + 95) $calc(%win.y + 22)  425 269 @mail.status comic sans ms 12
}
;Mail sidebar (non-listbox)
alias mail.sidebar2 {
  window -c @mail.status | set %win.x $window(@mailácenter).x  | set %win.y $window(@mailácenter).y
  if ($1 == e) { wincheck @mail.status -e +b @mail.status $calc(%win.x + 95) $calc(%win.y + 22)  425 269 @mail.status comic sans ms 12 }
  else wincheck @mail.status +b @mail.status $calc(%win.x + 95) $calc(%win.y + 22)  425 269 @mail.status comic sans ms 12
}
;Shutdown of mail
alias mail.close {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 9' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  .timermerr off | window -c @mail.sndrcv | sockclose send | sockclose get | unset %mail.* | unset %smail.*
  drawx2 499 2 15 14 @mailácenter | .timercl -m 1 200 window -c @mailácenter | .timerc2 -m 1 200 window -c @mail.status
}
;Determines what menu to show in @mail.status
alias mail.menu {
  if (%mail.menu == setup) && ($$1 == setup) { return $$2- }
  if (%mail.menu == contacts) && ($1 == contacts) { return $2- }
  if (%mail.menu == drafts) && ($1 == drafts) { return $2- }
  if (%mail.menu == outbox) && ($1 == outbox) { return $2- }
  if (%mail.menu == sent) && ($1 == sent) { return $2- }
  if (%mail.menu == inbox) && ($1 == inbox) { return $2- }
}
;Edit draft message
alias mail.edit {
  set %mail.df.q $sline(@mail.status,1).ln | set %mail.df.q $calc(%mail.df.q - 2) | set %mail.df.num $readini sysfiles\mail\settings.ini drafts num
  if ((%mail.df.q > %mail.df.num) || (%mail.df.q < 1)) && (%mail.df.num isnum) { unset %mail.df* | halt }
  set %mail.df.count 2 | set %mail.df.file $mircdirsysfiles\mail\df $+ %mail.df.num $+ .txt
  set %mail.comp.rcpt $read -nl1 %mail.df.file | set %mail.comp.subject $read -nl2 %mail.df.file
  set %mail.comp.rcpt $gettok(%mail.comp.rcpt,2,58) | set %mail.comp.subject $gettok(%mail.comp.subject,2,58)
  :next
  inc %mail.df.count | if (%mail.df.count > $lines(%mail.df.file)) { goto end }
  set %mail.comp.csmwlnsc. $+ $calc(%mail.df.count - 2) $read -nl $+ %mail.df.count %mail.df.file
  goto next
  :end
  set %mail.comp.csmwlnsc $calc(%mail.df.count - 3) | set %mail.comp.yes 1 | unset %mail.df.* | mail.sidebar2 e | unset %mail.menu | mail.csmrd
}
;Setup of accounts
alias mail.acct {
  if ($1 == deflt) && ($3 == chng) { writeini sysfiles\mail\settings.ini accounts default2 $2 | writeini sysfiles\mail\settings.ini accounts default $readini sysfiles\mail\settings.ini accounts $2 $+ smtp | goto end }
  if ($1 == deflt) { if ($readini sysfiles\mail\settings.ini accounts default2 != $2) { return Make default } | else return }
  if ($1 == chck) && ($2 == 1) { set %mail.parm $readini sysfiles\mail\settings.ini settings check2 | if (%mail.parm == off) { writeini sysfiles\mail\settings.ini settings check2 On | set %mail.sec $readini sysfiles\mail\settings.ini settings check | .timermailcheck 0 $calc(%mail.sec * 60) mail.sndrcv1 } | else { writeini sysfiles\mail\settings.ini settings check2 Off | .timermailcheck off } | goto end }
  if ($1 == chck) { set %mail.parm $readini sysfiles\mail\settings.ini settings check2 | if (%mail.parm == off ) { return Turn On } | else return Turn Off }
  if ($$2 == unset) {
    writeini sysfiles\mail\settings.ini accounts $$1 $+ name Not set
    writeini sysfiles\mail\settings.ini accounts $$1 $+ email Not set
    writeini sysfiles\mail\settings.ini accounts $$1 $+ pass Not set
    writeini sysfiles\mail\settings.ini accounts $$1 $+ mail Not set
    writeini sysfiles\mail\settings.ini accounts $$1 $+ smtp Not set
    if ($1 == $readini sysfiles\mail\settings.ini accounts default2) { writeini sysfiles\mail\settings.ini accounts default Not set }
    goto end
  }
  set %mail.parm $$3-
  writeini sysfiles\mail\settings.ini accounts $1 $+ $2 %mail.parm
  if ($1 == $readini sysfiles\mail\settings.ini accounts default2) && ($2 == smtp) { writeini sysfiles\mail\settings.ini accounts default %mail.parm }
  :end
  unset %mail.parm %mail.sec
  mail.setup
}
;Mail help
alias mail.help {
  if (%mail.comp.yes == 1) { window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 8' 'mail.cmpover' 'Are you sure you want to delete the current message?' | halt }
  mail.sidebar2 | loadbuf -p @mail.status sysfiles\mail\help.txt | sline @mail.status 10 | unset %mail.menu
}
;Mail composing
alias mail.compose {
  if (%mail.comp.yes != 1) {
    if ($1 == re) { set %mail.comp.re $$2- | goto end }
    unset %mail.comp.*
    if ($1 != $null) { set %mail.comp.rcpt $1 }
    else set %mail.comp.rcpt $$?="Enter the recipient's address:"
    set %mail.comp.subject $?="Enter the subject:"
    if (%mail.comp.subject == $null) { set %mail.comp.subject Noneá }
    :end
    unset %mail.menu | mail.sidebar2 e | mail.csmrd | set %mail.comp.yes 1 | halt
  }
  window -h @mail.status | window -h @mailácenter | yesno 'mail.cmpover 1' 'mail.cmpover' 'Are you sure you want to delete the current message?'
}
;Resarts mail message composing
alias mail.cmpover {
  if ($1 isnum 1-8) || ($1 == $null) { window -a @mailácenter }
  if ($1 isnum) { unset %mail.comp.* %mail.comp.yes }
  if ($1 == 1) { mail.compose }
  if ($1 == 2) { mail.inbox }
  if ($1 == 3) { mail.outbox }
  if ($1 == 4) { mail.sent }
  if ($1 == 5) { mail.drafts }
  if ($1 == 6) { mail.contacts }
  if ($1 == 7) { mail.drafts }
  if ($1 == 8) { mail.help }
  if ($1 == 9) { mail.close }
  if ($1 == $null) { mail.sidebar2 e | mail.csmrd }
}
;Menu for Mail Center
menu @mail.sndrcv {
  sclick {
    if ($inrect($mouse.x,$mouse.y,185,2,15,14) == $true) { drawx2 185 2 15 14 @mail.sndrcv | .timercl -m 1 200 window -n @mail.sndrcv | .timerc2 -m 1 200 drawx 185 2 15 14 @mail.sndrcv nx }
    if ($inrect($mouse.x,$mouse.y,219,2,15,14) == $true) && (%smail.x == $null) { drawx2 219 2 15 14 @mail.sndrcv | .timerxl -m 1 200 window -c @mail.sndrcv }
    if ($inrect($mouse.x,$mouse.y,95,40,47,17) == $true) && ($lines($mircdirsysfiles\mail\error.txt) > 0) && (%smail.x == $null) { drawx2 95 40 47 17 @mail.sndrcv | .timerxl -m 1 200 drawx 95 40 47 17 @mail.sndrcv nofill | .timerx2 -m 1 200 .run notepad.exe $mircdirsysfiles\mail\error.txt }
  }
}
menu @mailácenter {
  sclick {
    if ($inrect($mouse.x,$mouse.y,7,20,80,30) == $true) { mail.inbox | drawx2 7 20 80 30 @mailácenter | .timerm1 -m 1 200 drawx 7 20 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,57,80,30) == $true) { mail.outbox | drawx2 7 57 80 30 @mailácenter | .timerm2 -m 1 200 drawx 7 57 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,94,80,30) == $true) { mail.sent | drawx2 7 94 80 30 @mailácenter | .timerm3 -m 1 200 drawx 7 94 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,131,80,30) == $true) { mail.drafts | drawx2 7 131 80 30 @mailácenter | .timerm4 -m 1 200 drawx 7 131 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,168,80,30) == $true) { mail.contacts | drawx2 7 168 80 30 @mailácenter | .timerm5 -m 1 200 drawx 7 168 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,221,80,30) == $true) { mail.setup | drawx2 7 221 80 30 @mailácenter | .timerm6 -m 1 200 drawx 7 221 80 30 @mailácenter nofill }
    if ($inrect($mouse.x,$mouse.y,7,257,80,30) == $true) && (%smail.sndrcv == $null) { drawx2 7 257 80 30 @mailácenter | .timerm7 -m 1 200 drawx 7 257 80 30 @mailácenter nofill | mail.sndrcv | halt }
    if ($inrect($mouse.x,$mouse.y,499,2,15,14) == $true) { mail.close | halt }
    if ($inrect($mouse.x,$mouse.y,465,2,15,14) == $true) { window -h @mail.status | drawx2 465 2 15 14 @mailácenter | .timercl -m 1 200 window -n @mailácenter | .timerc2 -m 1 200 drawx 465 2 15 14 @mailácenter nx | halt }
window -a @mail.status
  }
  dclick {
    window -a @mail.status
  }
}
;Menus for the status window
menu @mail.status {
  dclick {
    window -a @mailácenter | window -a @mail.status
    if ($mail.menu(Setup,1) != $null) {
      if ($sline(@mail.status,1).ln isnum 4-15) || ($sline(@mail.status,1).ln isnum 18-19) {
        if ($sline(@mail.status,1).ln == 4) { mail.acct 1 name $$?="Enter account username/handle:" | mail.acct 1 email $$?="Enter account mail address:" }
        if ($sline(@mail.status,1).ln == 5) { mail.acct 1 pass $$?="Enter account password:" }
        if ($sline(@mail.status,1).ln == 6) { mail.acct 1 mail $$?="Enter POP3 (recieving) server:" }
        if ($sline(@mail.status,1).ln == 7) { mail.acct 1 smtp $$?="Enter SMTP (sending) server:" }
        if ($sline(@mail.status,1).ln == 8) { mail.acct 2 name $$?="Enter account username/handle:" | mail.acct 1 email $$?="Enter account mail address:" }
        if ($sline(@mail.status,1).ln == 9) { mail.acct 2 pass $$?="Enter account password:" }
        if ($sline(@mail.status,1).ln == 10) { mail.acct 2 mail $$?="Enter POP3 (recieving) server:" }
        if ($sline(@mail.status,1).ln == 11) { mail.acct 2 smtp $$?="Enter SMTP (sending) server:" }
        if ($sline(@mail.status,1).ln == 12) { mail.acct 3 name $$?="Enter account username/handle:" | mail.acct 1 email $$?="Enter account mail address:" }
        if ($sline(@mail.status,1).ln == 13) { mail.acct 3 pass $$?="Enter account password:" }
        if ($sline(@mail.status,1).ln == 14) { mail.acct 3 smtp $$?="Enter SMTP (sending) server:" }
        if ($sline(@mail.status,1).ln == 15) { mail.acct 3 mail $$?="Enter POP3 (recieving) server:" }
        if ($sline(@mail.status,1).ln == 18) { mail.acct chck 1 }
        if ($sline(@mail.status,1).ln == 19) { set %mail.file $$dir="Choose a file:" | if (%mail.file != $null) { writeini sysfiles\mail\settings.ini settings Signature %mail.file } | unset %mail.file | mail.setup }
      }
    }
    if ($mail.menu(contacts,1) != $null) { mail.send }
    if ($mail.menu(inbox,1) != $null) { mail.read inbox ib }
    if ($mail.menu(outbox,1) != $null) { mail.read outbox ob }
    if ($mail.menu(sent,1) != $null) { mail.read sentitems si }
    if ($mail.menu(drafts,1) != $null) { mail.edit }
  }
  $mail.menu(Setup,Accounts)
  .1
  ..Name...:mail.acct 1 name $$?="Enter account username/handle:"
  ..E-Mail...:mail.acct 1 email $$?="Enter account mail address:"
  ..Password...:mail.acct 1 pass $$?="Enter account password:"
  ..POP3 mail server...:mail.acct 1 mail $$?="Enter POP3 (recieving) server:"
  ..SMTP server...:mail.acct 1 smtp $$?="Enter SMTP (sending) server:"
  ..-
  .. $+ $mail.acct(deflt,1) $+ :mail.acct deflt 1 chng
  ..Unset:mail.acct 1 unset
  .2
  ..Name...:mail.acct 2 name $$?="Enter account username/handle:"
  ..E-Mail...:mail.acct 2 email $$?="Enter account mail address:"
  ..Password...:mail.acct 2 pass $$?="Enter account password:"
  ..POP3 mail server...:mail.acct 2 mail $$?="Enter POP3 (recieving) server:"
  ..SMTP server...:mail.acct 2 smtp $$?="Enter SMTP (sending) server:"
  ..-
  .. $+ $mail.acct(deflt,2) $+ :mail.acct deflt 2 chng
  ..Unset:mail.acct 2 unset
  .3
  ..Name...:mail.acct 3 name $$?="Enter account username/handle:"
  ..E-Mail...:mail.acct 3 email $$?="Enter account mail address:"
  ..Password...:mail.acct 3 pass $$?="Enter account password:"
  ..POP3 mail server...:mail.acct 3 mail $$?="Enter POP3 (recieving) server:"
  ..SMTP server...:mail.acct 3 smtp $$?="Enter SMTP (sending) server:"
  ..-
  .. $+ $mail.acct(deflt,3) $+ :mail.acct deflt 3 chng
  ..Unset:mail.acct 3 unset
  $mail.menu(Setup,Other)
  .Check/send every
  .. $+ $mail.acct(chck) $+ :mail.acct chck 1
  ..-
  ..10 min:writeini sysfiles\mail\settings.ini settings check 10 | set %mail.parm $readini sysfiles\mail\settings.ini settings check2 | if (%mail.parm == on) { set %mail.sec $readini sysfiles\mail\settings.ini settings check | .timermailcheck 0 $calc(%mail.sec * 60) mail.sndrcv1 } | mail.setup
  ..30:writeini sysfiles\mail\settings.ini settings check 30 | set %mail.parm $readini sysfiles\mail\settings.ini settings check2 | if (%mail.parm == on) { set %mail.sec $readini sysfiles\mail\settings.ini settings check | .timermailcheck 0 $calc(%mail.sec * 60) mail.sndrcv1 } | mail.setup
  ..60:writeini sysfiles\mail\settings.ini settings check 60 | set %mail.parm $readini sysfiles\mail\settings.ini settings check2 | if (%mail.parm == on) { set %mail.sec $readini sysfiles\mail\settings.ini settings check | .timermailcheck 0 $calc(%mail.sec * 60) mail.sndrcv1 } | mail.setup
  .Signature
  ..Set...:set %mail.file $$dir="Choose a sig file:" | if (%mail.file != $null) { writeini sysfiles\mail\settings.ini settings Signature %mail.file } | unset %mail.file | mail.setup
  ..Edit...:set %mail.sig $readini sysfiles\mail\settings.ini settings signature | if ($exists(%mail.sig) == $true) { .run notepad.exe %mail.sig } | unset %mail.sig
  ..Unset:writeini sysfiles\mail\settings.ini settings signature Not set | mail.setup
  $mail.menu(Setup,Reset ALL):yesno 'mail.reset' 'return' 'Are you sure you want to completely reset the C-Script mail system?'
  $mail.menu(contacts,Add Contact...):mail.add
  $mail.menu(contacts,Delete Contact):mail.delnum
  $mail.menu(contacts,Send message...):mail.send
  $mail.menu(drafts,Edit...):mail.edit
  $mail.menu(drafts,Delete...):mail.delfile drafts df mail.drafts
  $mail.menu(drafts,Delete All):yesno 'mail.delall drafts df mail.drafts' 'return' 'Are you sure you want to delete all messages in this folder?'
  $mail.menu(outbox,Read...):mail.read outbox ob
  $mail.menu(outbox,Delete...):mail.delfile outbox ob mail.outbox
  $mail.menu(outbox,Delete All):yesno 'mail.delall outbox ob mail.outbox' 'return' 'Are you sure you want to delete all messages in this folder?'
  $mail.menu(sent,Read...):mail.read sentitems si
  $mail.menu(sent,Forward...):mail.fwre sentitems si FW:
  $mail.menu(sent,Delete...):mail.delfile sentitems si mail.sent
  $mail.menu(sent,Delete All):yesno 'mail.delall sentitems si mail.sent' 'return' 'Are you sure you want to delete all messages in this folder?'
  $mail.menu(inbox,Forward...):mail.fwre inbox ib FW:
  $mail.menu(inbox,Read...):mail.read inbox ib
  $mail.menu(inbox,Reply...):mail.fwre inbox ib RE:
  $mail.menu(inbox,Delete...):mail.delfile inbox ib mail.inbox
  $mail.menu(inbox,Delete All):yesno 'mail.delall inbox ib mail.inbox' 'return' 'Are you sure you want to delete all messages in this folder?'
  -
  Compose message:mail.compose
  $mail.savedraft:mail.savedraft 1
  Help:mail.help
}
;Composing message input
alias mail.dmline {
  set %mail.comp.temp.1 $1
  set %mail.comp.temp.2 %mail.comp.csmwlnscd
  set %mail.comp.temp.3 %mail.comp.temp.1
  :loop
  if (%mail.comp.temp.1 <= 0) { goto end }
  dline @mail.status %mail.comp.temp.2
  dec %mail.comp.temp.1
  dec %mail.comp.temp.2
  goto loop
  :end
  unset %mail.comp.csmwlnsc. $+ %mail.comp.csmwlnsc | dec %mail.comp.csmwlnsc | dec %mail.comp.csmwlnscd %mail.comp.temp.3 | mail.csmrd
  halt
}
;Composing message input
alias mail.csmrd {
  clear @mail.status
  echo @mail.status Simply type in each line/paragraph at a time and press <enter>
  echo @mail.status For a blank line type <> and the press <Enter>
  echo @mail.status To delete a line type <del> and the press <Enter>
  echo @mail.status When finished type <end> and then press <Enter>
  echo @mail.status To save as a draft so you can finish later type <draft> and the press <Enter>
  echo @mail.status á
  echo @mail.status To: %mail.comp.rcpt
  echo @mail.status Subject: %mail.comp.subject
  echo @mail.status á
  set %mail.comp.csmwlnr 1
  :loop
  if (%mail.comp.csmwlnr > %mail.comp.csmwlnsc) { goto done }
  echo @mail.status [ %mail.comp.csmwlnsc. [ $+ [ %mail.comp.csmwlnr ] ] ]
  inc %mail.comp.csmwlnr
  goto loop
  :done
}
;Log message to a file when finished
alias mail.send2 {
  set %mail.comp.csmwlnr 1 | set %mail.comp.num $readini sysfiles\mail\settings.ini outbox num | inc %mail.comp.num
  .remove sysfiles\mail\ob $+ %mail.comp.num $+ .txt | writeini sysfiles\mail\settings.ini outbox num %mail.comp.num
  write -l1 sysfiles\mail\ob $+ %mail.comp.num $+ .txt To: %mail.comp.rcpt
  write -l2 sysfiles\mail\ob $+ %mail.comp.num $+ .txt Subject: %mail.comp.subject
  write -l3 sysfiles\mail\ob $+ %mail.comp.num $+ .txt á
  :loop
  if (%mail.comp.csmwlnr > %mail.comp.csmwlnsc) { goto done }
  write -l $+ $calc(%mail.comp.csmwlnr + 3) sysfiles\mail\ob $+ %mail.comp.num $+ .txt [ %mail.comp.csmwlnsc. [ $+ [ %mail.comp.csmwlnr ] ] ]
  inc %mail.comp.csmwlnr
  goto loop
  :done
  if (%mail.comp.re != $null) {
    set %mail.comp.file $mircdirsysfiles\mail\ $+ %mail.comp.re | write sysfiles\mail\ob $+ %mail.comp.num $+ .txt á
    write sysfiles\mail\ob $+ %mail.comp.num $+ .txt -----Original Message----- | set %mail.comp.count 0
    :next
    inc %mail.comp.count | if (%mail.comp.count > $lines(%mail.comp.file)) { goto end }
    write sysfiles\mail\ob $+ %mail.comp.num $+ .txt $read -nl $+ %mail.comp.count %mail.comp.file
    goto next
  }
  :end
  drawtext -o @mailácenter 2 arial 18 20 63 Outbox | unset %mail.comp.* | clear @mail.status | echo @mail.status Message added to the outbox. Press "Snd/Rcv" to check and send messages.
}
;Save current message as a draft for later use
alias mail.savedraft {
  if (%mail.comp.yes == 1) && ($1 == $null) { return Save as draft }
  if (%mail.comp.yes == 1) && ($1 == 1) {
    set %mail.comp.csmwlnr 1 | set %mail.comp.num $readini sysfiles\mail\settings.ini drafts num | inc %mail.comp.num
    .remove sysfiles\mail\df $+ %mail.comp.num $+ .txt | writeini sysfiles\mail\settings.ini drafts num %mail.comp.num
    write -l $+ 1 sysfiles\mail\df $+ %mail.comp.num $+ .txt To: %mail.comp.rcpt
    write -l $+ 2 sysfiles\mail\df $+ %mail.comp.num $+ .txt Subject: %mail.comp.subject
    :loop
    if (%mail.comp.csmwlnr > %mail.comp.csmwlnsc) { goto done }
    write -l $+ $calc(%mail.comp.csmwlnr + 2) sysfiles\mail\df $+ %mail.comp.num $+ .txt [ %mail.comp.csmwlnsc. [ $+ [ %mail.comp.csmwlnr ] ] ]
    inc %mail.comp.csmwlnr
    goto loop
    :done
    unset %mail.comp.* | clear @mail.status | echo @mail.status Message saved to the drafts folder. You may edit and send this message at any time by clicking on the "Drafts" button.
  }
}
;Composing message input
on 1:INPUT:@mail.status: {
  if ($1- == <end>) { mail.send2 | goto end }
  if ($1- == <draft>) { mail.savedraft 1 | goto end }
  if ($1- == <>) { inc %mail.comp.csmwlnscd | inc %mail.comp.csmwlnsc | set %mail.comp.csmwlnsc. $+ %mail.comp.csmwlnsc á | mail.csmrd | goto end }
  if ($1- == <del> && %mail.comp.csmwlnscd > 0) {
    set %mail.comp.temp [ %mail.comp.csmwlnsc. [ $+ [ %mail.comp.csmwlnsc ] ] ]
    set %mail.comp.temp $len(%mail.comp.temp)
    if (%mail.comp.temp > 93) {
      if (%mail.comp.temp > 93 && %mail.comp.temp <= 186) { mail.dmline 2 }
      elseif (%mail.comp.temp > 186 && %mail.comp.temp <= 279) { mail.dmline 3 }
      elseif (%mail.comp.temp > 279 && %mail.comp.temp <= 372) { mail.dmline 4 }
      elseif (%mail.comp.temp > 372 && %mail.comp.temp <= 465) { mail.dmline 5 }
      elseif (%mail.comp.temp > 465 && %mail.comp.temp <= 558) { mail.dmline 6 }
      elseif (%mail.comp.temp > 558) { mail.dmline 7 }
    }
    else { mail.dmline 1 }
  }
  else {
    set %mail.comp.temp $1-
    set %mail.comp.temp $len(%mail.comp.temp)
    inc %mail.comp.csmwlnsc
    inc %mail.comp.csmwlnscd
    set %mail.comp.csmwlnsc. $+ %mail.comp.csmwlnsc $1-
    if (%mail.comp.temp > 93) {
      if (%mail.comp.temp > 93 && %mail.comp.temp <= 186) { inc %mail.comp.csmwlnscd }
      elseif (%mail.comp.temp > 186 && %mail.comp.temp <= 279) { inc %mail.comp.csmwlnscd 2 }
      elseif (%mail.comp.temp > 279 && %mail.comp.temp <= 372) { inc %mail.comp.csmwlnscd 3 }
      elseif (%mail.comp.temp > 372 && %mail.comp.temp <= 465) { inc %mail.comp.csmwlnscd 4 }
      elseif (%mail.comp.temp > 465 && %mail.comp.temp <= 558) { inc %mail.comp.csmwlnscd 5 }
      elseif (%mail.comp.temp > 558) { inc %mail.comp.csmwlnscd 6 }
    }
    mail.csmrd
  }
  :end
  halt
}
;Mail notice when sending and retrieving mail
alias mail.notice {
  drawrect -f @mail.sndrcv 15 4 0 18 250 19 | drawtext @mail.sndrcv 1 arial 13 1 19 $$1- | return
}
;Mail error
alias mail.err {
  drawrect -f @mail.sndrcv 15 4 0 18 250 19 | drawtext @mail.sndrcv 1 arial 13 1 19 $$2- | sockclose $$1
  .timermerr off | set %mail.quit 1 | unset %smail.rtrvl %smail.head %smail.stat | mail.sndrcvnxt
}